home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-14  |  640 b   |  28 lines
  1. 10   PRINT "BINOMIAL DISTRIBUTION"
  2. 20   PRINT 
  3. 30   DIM M(3)
  4. 40   PRINT "(TO END PROGRAM ENTER 0)"
  5. 50   PRINT "NUMBER OF TRIALS";
  6. 60   INPUT N
  7. 70   IF N = 0 THEN 270
  8. 80   PRINT "EXACT NUMBER OF SUCCESSES";
  9. 90   INPUT X
  10. 100   PRINT "PROBABILITY OF SUCCESS";
  11. 110   INPUT P
  12. 120  M(1) = N
  13. 130  M(2) = X
  14. 140  M(3) = N - X
  15. 150   FOR I = 1 TO 3
  16. 160   IF M(I) = 0 THEN 220
  17. 170  A = 1
  18. 180   FOR J = 1 TO M(I)
  19. 190  A = A * J
  20. 200   NEXT J
  21. 210  M(I) =  LOG (A)
  22. 220   NEXT I
  23. 230  R =  EXP (M(1) - M(2) - M(3) + X *  LOG (P) + (N-X) * LOG (1-P))
  24. 240  PRINT "PROBABILITY OF ";X; "SUCCESSES IN" ;N; "TRAILS =";R
  25. 250  PRINT
  26. 260  GOTO  50
  27. 270  RUN "STAT"
  28.